home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / mscfunct / key_scan.asm < prev    next >
Assembly Source File  |  1987-05-08  |  693b  |  39 lines
  1. ;    Static Name Aliases
  2. ;
  3.     TITLE   key_scan
  4. ;    NAME    key_scan.C
  5. ;
  6. ; key_scan function, compiled under compact model of MSC
  7. ;
  8.     .287
  9. _TEXT    SEGMENT  BYTE PUBLIC 'CODE'
  10. _TEXT    ENDS
  11. _DATA    SEGMENT  WORD PUBLIC 'DATA'
  12. _DATA    ENDS
  13. CONST    SEGMENT  WORD PUBLIC 'CONST'
  14. CONST    ENDS
  15. _BSS    SEGMENT  WORD PUBLIC 'BSS'
  16. _BSS    ENDS
  17. DGROUP    GROUP    CONST,    _BSS,    _DATA
  18.     ASSUME  CS: _TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP
  19. _TEXT      SEGMENT
  20.     PUBLIC    _key_scan
  21.  
  22. _key_scan    PROC NEAR
  23.     push    bp
  24.     mov    bp,sp
  25.     mov    ah,1        ;is a key waiting?
  26.     int    16h
  27.     jnz    key_waiting
  28.     
  29.     mov    ax, 0ffffh    ;no, put error code in ax for return
  30.     
  31. key_waiting:
  32.     mov    sp,bp
  33.     pop    bp
  34.     ret    
  35.  
  36. _key_scan    ENDP
  37. _TEXT    ENDS
  38. END
  39.